home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.04 Apr 91 / Code Optimizing / Sources / Mxmpy.f < prev    next >
Encoding:
Text File  |  1990-04-26  |  800 b   |  29 lines  |  [TEXT/MPS ]
  1.       SUBROUTINE MXMPY (A, B, C, L, M, N)
  2. C-------------------------------------------------
  3. C  Performs the matrix multiplication A * B = C.
  4. C
  5. C  Input:  A - an L x M matrix.
  6. C          B - an M x N matrix.
  7. C          L, M, N - dimensions of the matrices
  8. C  Output: C - an L x N matrix.
  9. C
  10. C  April 1990
  11. C  Jon Bell, Dept. of Physics & Computer Science
  12. C  Presbyterian College, Clinton SC 29325
  13. C
  14. C  Written in Language Systems FORTRAN, v2.0
  15. C-------------------------------------------------
  16.       IMPLICIT NONE
  17.       INTEGER I, J, K, L, M, N
  18.       EXTENDED A(L,M), B(M,N), C(L,N), SUM
  19.       DO I = 1, L
  20.          DO J = 1, N
  21.             SUM = 0.0X0
  22.             DO K = 1, M
  23.                SUM = SUM + A(I,K) * B(K,J)
  24.             END DO
  25.             C(I,J) = SUM
  26.          END DO
  27.       END DO
  28.       END
  29.